In   -
Out  source
Type AOFModule
Ver  1.03v
Max  16k

Define Module
 Name      TestModule
 Author    Justin Fletcher
 Init      test
 Commands
  Name     test
  Code     calltest

  Name     Test2
  Code     |calltest2|
 End Commands
End Module

.test
   STMFD   (sp)!,{r0-r5,link}            ; Stack registers
   XBL     |testcode|,1,67
   REM     "%r0"
   BL      |moretest|
   LDMFD   (sp)!,{r0-r5,pc}              ; Return from call

.calltest
   STMFD   (sp)!,{r0-r5,link}            ; Stack registers
   BL      |command|                     ; claim it and store things
   LDR     r1,[a1]                       ; read the number
   REM     "Address = %&1"               ; show it
   BL      |free|                        ; free it
   LDMFD   (sp)!,{r0-r5,pc}              ; Return from call

>|calltest2|
   LDMFD   (sp)!,{r0-r5,pc}              ; Return from call
   REM     "Hey, the second test"
   LDMFD   (sp)!,{r0-r5,pc}              ; Return from call
